perm filename JUNK[206,JMC] blob sn#778903 filedate 1984-12-13 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	{\obeyspaces\gdef {\ }}
C00013 00003	\prog
C00020 ENDMK
CāŠ—;
{\obeyspaces\gdef {\ }}
\def\prog{\bgroup\tt\obeylines\parskip0pt\parindent0pt\def\par{\leavevmode\endgraf}%
\obeyspaces\catcode`\&=12\catcode`\#=12}
\def\endprog{\egroup}
\prog
(defmacro choose (n &rest forms)
   (nth (eval n) forms))
\endprog